home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / GAMES.ARC / -] GAP MAN (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  639 b   |  19 lines
  1. 5 IFG=0THENPOKE55,0:POKE56,120:CLR
  2. 10 IFGTHEN100
  3. 20 Y=0:PRINT"[147] GAP MAN ":PRINT"[150]PLAY THE [153]R[150]EGULAR OR [153]C[150]OMPILED VERSION?"
  4. 30 PRINT"(THE COMPILED VERSION IS BETTER)"
  5. 40 PRINT"PLEASE ENTER [153]<R>[150] OR [153]<C>[150]."
  6. 50 Y=Y+1:GETX$:IFX$=""ANDY<1000THEN50
  7. 60 IFX$<>"R"ANDX$<>"C"ANDX$<>""THEN50
  8. 70 E$="":IFX$="C"ORX$=""THENE$="C/":PRINT"[153]<COMPILED>[150] COMING UP":GOTO90
  9. 80 PRINT"[153]<REGULAR>[150] COMING UP"
  10. 90 FORA=1TO2000:NEXT:PRINT"[147]"
  11. 100 G=G+1:ONGGOTO110,120,130,140,150
  12. 110 LOAD"GP.SET",8,1
  13. 120 LOAD"GP.COLOR",8,1
  14. 130 LOAD"GP.SUBS",8,1
  15. 140 LOAD"GP.01-16",8,1
  16. 150 PRINT"[147][144]LOAD"CHR$(34)E$"GP.PRG"CHR$(34)",8";
  17. 160 POKE198,5:POKE631,13:POKE632,82:POKE633,213:POKE634,58:POKE635,13:NEW
  18. 170 POKE198,5:POKE631,13:POKE632,82:POKE633,213:POKE634,58:POKE635,13:NEW
  19.